home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / gui / gtldv374.lha / GadUtil / Install < prev    next >
Text File  |  1996-05-14  |  27KB  |  1,099 lines
  1. ;--------------------------- Current version.revision ----------------------
  2. (set vernum (getversion "libs:gadutil.library"))
  3.  
  4. (set thisvernum (getversion "libs/gadutil.library"))
  5. (set thisver (/ thisvernum 65536))
  6. (set thisrev (- thisvernum (* thisver 65536)))
  7.  
  8. ;-------------------------------- Debugging... -----------------------------
  9. ;(set thisver 36)
  10. ;(set thisrev 54)
  11. ;(set thisvernum (+ thisrev (* thisver 65536)))
  12. ;(set @default-dest "ram:")
  13.  
  14. ;---------------------- All strings in the script --------------------------
  15.  
  16. (set #install-msg        "Installing GadUtil.library...")
  17.  
  18. (set #info-msg     (cat    "\n\nGadUtil installation script.\n"
  19.                         ("This script installs GadUtil %ld.%ld on your system.\n\n" thisver thisrev)
  20.                         "Read the docs for more information on the "
  21.                         "distribution and for use in commercial or "
  22.                         "other non-free programs.\n\n"
  23.                         "GadUtil is Copyright © 1994-1996 by\n"
  24.                         "P-O Yliniemi and Staffan Hämälä.\n"
  25.                         "All rights reserved."))
  26.  
  27. (set #usertype-msg (cat "\n\nTo make it as easy as possible to install this "
  28.                         "product on your computer, you have now the chance "
  29.                         "to select what 'kind' of user you class yourself as. "
  30.                         "When you have done this selection, the installation "
  31.                         "process will go much smoother, since you may not have "
  32.                         "to change too much of the presets.\n\n"
  33.                         "Don't overuse this function, since you'll wear out "
  34.                         "your mouse buttons if you select that you are a pro, "
  35.                         "if you actually are a lamer!!!"))
  36.  
  37. (set #selusertype-msg    "Select the user type closest to yourself")
  38. (set #usertype1-msg        "Minimal installation (library only)")
  39. (set #usertype2-msg        '"Normal" user (library + some docs)')
  40. (set #usertype3-msg        "Assembly language programmer")
  41. (set #usertype4-msg        "'C' language programmer")
  42. (set #usertype5-msg        "Assembly & 'C' language programmer")
  43. (set #usertype6-msg        "GadUtil library author / ßeta tester")
  44.  
  45. (set #whatinstall-msg    "Which part(s) do you want to install?")
  46. (set #userpart-msg        "User installation...")
  47. (set #develpart-msg        "Developer installation...")
  48.  
  49. (set #useroptions-msg    "Select which user file(s) to install")
  50. (set #useroption1-msg    "The library file (replaces old version)")
  51. (set #useroption2-msg    "User documentation")
  52. (set #useroption3-msg    "Aminet .readme file")
  53.  
  54. (set #developtions-msg    "Select which development file(s) to install")
  55. (set #develoption1-msg    "Developer documentation...")
  56. (set #develoption2-msg    "Include files...")
  57. (set #develoption3-msg    "Example programs...")
  58. (set #develoption4-msg    "Catalog creation utilities...")
  59. (set #develoption5-msg    "Extra commands...")
  60. (set #develoption6-msg    "Other...")
  61.  
  62. (set #develdocs-msg        "Select which document(s) to install")
  63. (set #develdocs1-msg    "Autodocs (text format)")
  64. (set #develdocs2-msg    "Autodocs (AmigaGuide format)")
  65. (set #develdocs3-msg    "Autodocs for private functions")
  66. (set #develdocs4-msg    "Separate doc files for every function")
  67. (set #develdocs5-msg    "Development history (English)")
  68. (set #develdocs6-msg    "Development history (Swedish)")
  69. (set #develdocs7-msg    "List with all GadTools tags")
  70.  
  71. (set #develinc-msg        "Select which include file(s) to install")
  72. (set #develinc1-msg        "C-language includes...")
  73. (set #develinc2-msg        "Assembly language includes...")
  74. (set #develinc3-msg        "LVOs.i (needed for Assembly examples)")
  75. (set #develinc4-msg        "FD files (Basic...)")
  76.  
  77. (set #develcinc-msg        "Create pragma files for...")
  78. (set #develcinc1-msg    "SAS-C")
  79. (set #develcinc2-msg    "DICE-C")
  80. (set #develcinc3-msg    "Aztec-C")
  81. (set #develcinc4-msg    "Maxon-C")
  82. (set #develcinc5-msg    "StormC")
  83.  
  84. (set #develasminc-msg    "Create Assembly function files for...")
  85. (set #develasminc1-msg    "Misc Assemblers (LIBINIT, LIBDEF macros)")
  86. (set #develasminc2-msg    "Aztec Asm (XDEF, EQU)")
  87.  
  88. (set #develex-msg        "Select which example(s) to install")
  89. (set #develex1-msg        "Demonstration of a bug in GadTools (Asm)")
  90. (set #develex2-msg        "Starter project for localized prog (Asm)")
  91. (set #develex3-msg        "Test program for GadTools hotkeys, loc (Asm)")
  92. (set #develex4-msg        "Bevelbox examples (Asm)")
  93. (set #develex5-msg        "Code to change internal test to external (Asm)")
  94. (set #develex6-msg        "Test program for listview functions (Asm)")
  95. (set #develexC-msg        "AmigaGuide online help example (Asm)")
  96.  
  97. (set #develex7-msg        "The very first external test program (Asm)")
  98. (set #develex8-msg        "The first internal test program, loc (Asm)")
  99. (set #develex9-msg        "Three old test programs (Asm)")
  100. (set #develexA-msg        "Three gadgets with border around them (Asm)")
  101. (set #develexB-msg        "Test program for GadTools hotkeys, loc (C)")
  102. (set #develexD-msg        "Demo programs by other programmers (C)")
  103. (set #develexE-msg        "Demo programs by other programmers (Asm)")
  104.  
  105. (set #develcat-msg        "Select which catalog creator(s) to install")
  106. (set #develcat1-msg        "FlexCat 1.4")
  107. (set #develcat2-msg        "English documentation for FlexCat 1.4")
  108. (set #develcat3-msg        "Quick usage instructions for FlexCat 1.4")
  109. (set #develcat4-msg        "C source description file (Lattice/SAS-C)")
  110. (set #develcat5-msg        "Asm source description file (Asm-One 1.25)")
  111.  
  112. (set #develcmd-msg        "Select which extra command(s) to install")
  113. (set #develcmd1-msg        "AskEnv 2.5 (Create GUI's for DOS scripts)")
  114. (set #develcmd2-msg        "FD2Pragma (Create C pragma files from .FD)")
  115. (set #develcmd3-msg        "XIcon 2.5 (run DOS scripts from Workbench)")
  116.  
  117. (set #develoth-msg        "Other thing(s) you may want to install")
  118. (set #develoth1-msg        "Debug version of library (gadutil.library_dbg)")
  119. (set #develoth2-msg        "Include file editor/installer/remover")
  120. (set #develoth3-msg        "Distribution archiver")
  121. (set #develoth4-msg        "The Installer script")
  122. (set #develoth5-msg        "The library's source code :-)")
  123. (set #develoth6-msg        "Unfinished library routines")
  124.  
  125. (set #maindir-msg  (cat    "Where do you wish to install GadUtil related\n"
  126.                         "files? The Installer will NOT create a new\n"
  127.                         "drawer at the selected location."))
  128.  
  129. (set #sellocfor-msg        "Please select a location for")
  130. (set #docdir-msg        ("%s all documentation" #sellocfor-msg))
  131. (set #cincdir-msg        ("%s 'C' include files" #sellocfor-msg))
  132. (set #asmincdir-msg        ("%s Assembly include files" #sellocfor-msg))
  133. (set #LVOSidir-msg        ("%s the LVOs.i file" #sellocfor-msg))
  134. (set #FDdir-msg            ("%s the .FD file" #sellocfor-msg))
  135. (set #exampledir-msg    ("%s example sources" #sellocfor-msg))
  136. (set #catutdir-msg        ("%s catalog utilities" #sellocfor-msg))
  137. (set #extcmddir-msg        ("%s extra commands" #sellocfor-msg))
  138.  
  139. (set #StormCDict-msg (cat "Do you want to append GadUtil function names, "
  140.                         "structure offsets and types to your StormC "
  141.                         "dictionary files (names will be appended to "
  142.                         "Amiga Functions.dic and Amiga Types.dic) ?"))
  143.  
  144. (set #debuglib-msg (cat "\nYou have selected to install another version\n"
  145.                         "of GadUtil.library, that contains some extra\n"
  146.                         "code for debugging. This version can be used\n"
  147.                         "to trace problems while starting up applications\n"
  148.                         "that uses gadutil.library.\n\n"
  149.                         "To use the 'debug' version, rename the original\n"
  150.                         "library to something else, and rename the 'debug'\n"
  151.                         "version to 'gadutil.library'. Type 'avail flush'\n"
  152.                         "in Shell to remove the normal library from memory.\n"
  153.                         "You may have to reboot to remove the library from\n"
  154.                         "memory. Start the program and read...\n"))
  155.  
  156. (set #libinst-msg        "Installing gadutil.library.")
  157. (set #debuglibinst-msg    "Installing gadutil.library (debug version).")
  158.  
  159. (set #obtainsrc-msg    (cat "\nIt seems like you're not a developer of this\n"
  160.                         "project. If you really need the source for this\n"
  161.                         "library, send both authors of the project at least\n"
  162.                         "$1.000.000 or anything equal in another currency.\n\n"
  163.                         "Don't forget to supply an empty diskette, and a SAE\n"
  164.                         "with stamps enough to cover postage expenses.\n\n"
  165.                         "Per-Olof Yliniemi            Staffan Hämälä\n"
  166.                         "Box 78                       Pellovägen 268\n"
  167.                         "S-980 61 Tärendö             S-957 93 Pello\n"
  168.                         "SWEDEN                       SWEDEN        \n"))
  169.  
  170. ;----------- Copy source file to destination w/ version check --------------
  171. ;
  172. ; Inputs:    .file1 - The file to install (source file)
  173. ;            .file2 - The destination directory
  174. ;
  175. (procedure safecopy
  176.     (set .vernum1 (getversion .file1))
  177.     (set .ver1 (/ .vernum1 65536))
  178.     (set .rev1 (- .vernum1 (* .ver1 65536)))
  179.  
  180.     (set .vernum2 (getversion (tackon .file2 (fileonly .file1))))
  181.     (set .ver2 (/ .vernum2 65536))
  182.     (set .rev2 (- .vernum2 (* .ver2 65536)))
  183.  
  184.     (if (<> .vernum1 .vernum2)
  185.     (if (> .vernum1 .vernum2)
  186.         (copyfiles
  187.             (source .file1) (dest .file2)
  188.         )
  189.  
  190.         ( (if (= @user-level 2)
  191.             (if (askbool
  192.                 (prompt (cat ("Installing %s.\n\n" (fileonly .file1))
  193.                     ("Version to install: %ld.%ld\n" .ver1 .rev1)
  194.                     ("Version currently installed: %ld.%ld\n\n" .ver2 .rev2)
  195.                      "Destination Drawer to Copy to:\n"
  196.                      .file2))
  197.                 (choices "Proceed with Copy" "Skip This Part")
  198.                 (default 0)
  199.                 (help    (cat "The Installer has detected that a later version\n"
  200.                     "of the file that is going to be copied already\n"
  201.                     "exists at the selected destination.\n\n"
  202.                     "Select \"Proceed with Copy\" to replace the newer\n"
  203.                     "file with an older one. Select \"Skip This Part\"\n"
  204.                     "to keep the installed version.\n"))
  205.                 )
  206.                 (copyfiles
  207.                     (source .file1) (dest .file2)
  208.                 )
  209.             )
  210.         ))
  211.     ))
  212. )
  213.  
  214. ;-------------------- Installation script begins here ----------------------
  215. (set olduserlevel @user-level)
  216. (user 2)
  217. (transcript #install-msg)
  218. (message #info-msg)
  219. (message #usertype-msg)
  220.  
  221. ;--------------------------------- Get user type ---------------------------
  222. (if (= olduserlevel 0)
  223.     (set usertype
  224.         (askchoice
  225.             (prompt #selusertype-msg)
  226.             (help @askchoice-help)
  227.             (choices    #usertype1-msg
  228.                         #usertype2-msg
  229.             )
  230.         )
  231.     )
  232.  
  233.     (set usertype
  234.         (askchoice
  235.             (prompt #selusertype-msg)
  236.             (help @askchoice-help)
  237.             (choices    #usertype1-msg
  238.                         #usertype2-msg
  239.                         #usertype3-msg
  240.                         #usertype4-msg
  241.                         #usertype5-msg
  242.                         #usertype6-msg
  243.             )
  244.         )
  245.     )
  246. )
  247. ;------------------ Set default settings for user-types --------------------
  248.  
  249. (set def_installtype (select usertype  %01  %01  %11  %11  %11  %11))
  250. (set def_userinstall (select usertype %001 %111 %111 %111 %111 %111))
  251. (set def_develinstall (select usertype  %000000 %000000 %111111
  252.                                         %111111 %111111 %111111))
  253. (set def_develdocs (select usertype %0000000 %0000000 %0010010
  254.                                     %0010010 %0010010 %1111111))
  255. (set def_develinc (select usertype %0000 %0000 %0110 %1001 %1111 %1111))
  256. (set def_develex1 (select usertype    %0000000 %0000000 %1101110
  257.                                     %0000000 %1101110 %1111111))
  258. (set def_develex2 (select usertype %0000000 %0000000 %1001000
  259.                                     %0110000 %1111000 %1111111))
  260.  
  261. (set def_develcat (select usertype %00000 %00000 %10111 %01111 %11111 %11111))
  262. (set def_develcmd (select usertype %000 %000 %001 %011 %011 %111))
  263. (set def_develoth (select usertype    %000000 %000000 %000011
  264.                                     %000011 %000011 %001111))
  265.  
  266. (user olduserlevel)
  267. ;--------------------------- Check type of installation --------------------
  268. (set installtype
  269.     (askoptions
  270.         (prompt #whatinstall-msg)
  271.         (help    @askoptions-help)
  272.         (choices    #userpart-msg
  273.                     #develpart-msg
  274.         )
  275.         (default def_installtype)
  276. ;        (default (- 2 (> thisvernum vernum)))
  277.     )
  278. )
  279.  
  280. (if (= installtype 0)
  281.     (message "So, you didn't want to install GadUtil yet...\nLater maybe???")
  282. )
  283.  
  284. ;-------------------------- Get options for user install -------------------
  285. (if (IN installtype 0)
  286.     (set userinstall
  287.         (askoptions
  288.             (prompt #useroptions-msg)
  289.             (help    @askoptions-help)
  290.             (choices    #useroption1-msg
  291.                         #useroption2-msg
  292.                         #useroption3-msg
  293.             )
  294.             (default def_userinstall)
  295.         )
  296.     )
  297. )
  298.  
  299. ;---------------------- Get options for developer install ------------------
  300. (if (IN installtype 1)
  301.     (set develinstall
  302.         (askoptions
  303.             (prompt #developtions-msg)
  304.             (help    @askoptions-help)
  305.             (choices    #develoption1-msg
  306.                         #develoption2-msg
  307.                         #develoption3-msg
  308.                         #develoption4-msg
  309.                         #develoption5-msg
  310.                         #develoption6-msg
  311.             )
  312.             (default def_develinstall)
  313.         )
  314.     )
  315. )
  316.  
  317. ;-------------------- Check which devel docs to install --------------------
  318. (if (IN develinstall 0)
  319.     (set develdocs
  320.         (askoptions
  321.             (prompt #develdocs-msg)
  322.             (help    @askoptions-help)
  323.             (choices    #develdocs1-msg
  324.                         #develdocs2-msg
  325.                         #develdocs3-msg
  326.                         #develdocs4-msg
  327.                         #develdocs5-msg
  328.                         #develdocs6-msg
  329.                         #develdocs7-msg
  330.             )
  331.             (default def_develdocs)
  332.         )
  333.     )
  334. )
  335.  
  336. ;--------------------- Check which includes to install ---------------------
  337. (if (IN develinstall 1)
  338.     (set develinc
  339.         (askoptions
  340.             (prompt #develinc-msg)
  341.             (help    @askoptions-help)
  342.             (choices    #develinc1-msg
  343.                         #develinc2-msg
  344.                         #develinc3-msg
  345.                         #develinc4-msg
  346.             )
  347.             (default def_develinc)
  348.         )
  349.     )
  350. )
  351.  
  352. ;-------------------- Check which C includes to create ---------------------
  353. (if (IN develinc 0)
  354.     (set cinc
  355.         (askchoice
  356.             (prompt #develcinc-msg)
  357.             (help    @askchoice-help)
  358.             (choices    #develcinc1-msg
  359.                         #develcinc2-msg
  360.                         #develcinc3-msg
  361.                         #develcinc4-msg
  362.                         #develcinc5-msg
  363.             )
  364.         )
  365.     )
  366. )
  367.  
  368. ;------------------- Check which Asm includes to create --------------------
  369. (if (IN develinc 1)
  370.     (set asminc
  371.         (askchoice
  372.             (prompt #develasminc-msg)
  373.             (help    @askchoice-help)
  374.             (choices    #develasminc1-msg
  375.                         #develasminc2-msg
  376.             )
  377.         )
  378.     )
  379. )
  380.  
  381. ;-------------------- Check which examples to install ----------------------
  382. (if (IN develinstall 2)(
  383.     (set develex1
  384.         (askoptions
  385.             (prompt #develex-msg)
  386.             (help    @askoptions-help)
  387.             (choices    #develex1-msg
  388.                         #develex2-msg
  389.                         #develex3-msg
  390.                         #develex4-msg
  391.                         #develex5-msg
  392.                         #develex6-msg
  393.                         #develexC-msg
  394.             )
  395.             (default def_develex1)
  396.         )
  397.     )
  398.  
  399.     (set develex2
  400.         (askoptions
  401.             (prompt #develex-msg)
  402.             (help    @askoptions-help)
  403.             (choices    #develex7-msg
  404.                         #develex8-msg
  405.                         #develex9-msg
  406.                         #develexA-msg
  407.                         #develexB-msg
  408.                         #develexD-msg
  409.                         #develexE-msg
  410.             )
  411.             (default def_develex2)
  412.         )
  413.     )
  414. ))
  415.  
  416. ;---------------- Check which catalog utilities to install -----------------
  417. (if (IN develinstall 3)
  418.     (set develcat
  419.         (askoptions
  420.             (prompt #develcat-msg)
  421.             (help    @askoptions-help)
  422.             (choices    #develcat1-msg
  423.                         #develcat2-msg
  424.                         #develcat3-msg
  425.                         #develcat4-msg
  426.                         #develcat5-msg
  427.             )
  428.             (default def_develcat)
  429.         )
  430.     )
  431. )
  432.  
  433. ;------------------ Check which extra commands to install ------------------
  434. (if (IN develinstall 4)
  435.     (set develcmd
  436.         (askoptions
  437.             (prompt #develcmd-msg)
  438.             (help    @askoptions-help)
  439.             (choices    #develcmd1-msg
  440.                         #develcmd2-msg
  441.                         #develcmd3-msg
  442.             )
  443.             (default def_develcmd)
  444.         )
  445.     )
  446. )
  447.  
  448. ;------------------- Check which other files to install --------------------
  449. (if (IN develinstall 5)
  450.     (set develoth
  451.         (askoptions
  452.             (prompt #develoth-msg)
  453.             (help    @askoptions-help)
  454.             (choices    #develoth1-msg
  455.                         #develoth2-msg
  456.                         #develoth3-msg
  457.                         #develoth4-msg
  458.                         #develoth5-msg
  459.                         #develoth6-msg
  460.             )
  461.             (default def_develoth)
  462.         )
  463.     )
  464. )
  465.  
  466. ;-------------------------- Create main directory --------------------------
  467. (if (OR
  468.         (AND (IN installtype 0) (IN userinstall 1 2))
  469.         (AND (IN installtype 1) (OR    (<> develdocs 0)
  470.                                     (OR (<> develex1 0) (<> develex2 0))
  471.                                     (<> develcat 0)
  472.                                     (> develoth 1)
  473.                                 )
  474.         )
  475.     )
  476.  
  477.     (
  478.         (set destdir
  479.             (askdir
  480.                 (prompt #maindir-msg)
  481.                 (help @askdir-help)
  482.                 (default @default-dest)
  483.             )
  484.         )
  485.         (if (= @user-level 0) (set destdir (tackon destdir "GadUtil")))
  486.  
  487.         (if (<> (substr destdir (- (strlen destdir) 1)) ":")
  488.             (makedir destdir (infos))
  489.         )
  490.  
  491.         (set @default-dest destdir)
  492.     )
  493. )
  494.  
  495. ;-------------------------- Create docs directory --------------------------
  496. (if (AND (<> installtype 0) (OR (> userinstall 1)(<> develdocs 0)))
  497.     (
  498.         (set docdir
  499.             (askdir
  500.                 (prompt #docdir-msg)
  501.                 (help @askdir-help)
  502.                 (newpath)
  503.                 (default (tackon destdir "Docs"))
  504.             )
  505.         )
  506.         (makedir docdir (infos))
  507.     )
  508. )
  509.  
  510. ;-------------------------- Do user installation ---------------------------
  511. (if (IN userinstall 0)
  512.        (copylib
  513.         (prompt #libinst-msg)
  514.            (help @copylib-help)
  515.            (source "libs/gadutil.library")
  516.            (dest "libs:")
  517.            (confirm)
  518.     )
  519. )
  520.  
  521. (if (IN userinstall 1)
  522.     (
  523.         (copyfiles (source "docs/GadUtil.manual")
  524.             (dest docdir)
  525.         )
  526.         (copyfiles (source "icons/def_doc.info")
  527.             (dest docdir) (newname "GadUtil.manual.info")
  528.         )
  529.     )
  530. )
  531.  
  532. (if (IN userinstall 2)
  533.     (
  534.         (copyfiles (source "docs/GUtilInfo.txt")
  535.             (dest docdir)
  536.         )
  537.         (copyfiles (source "icons/def_doc.info")
  538.             (dest docdir) (newname "GUtilInfo.txt.info")
  539.         )
  540.  
  541.         (copyfiles (source "docs/GadUtil_dev.readme")
  542.             (dest docdir)
  543.         )
  544.         (copyfiles (source "icons/def_doc.info")
  545.             (dest docdir) (newname "GadUtil_dev.readme.info")
  546.         )
  547.  
  548.         (copyfiles (source "docs/GadUtil_usr.readme")
  549.             (dest docdir)
  550.         )
  551.         (copyfiles (source "icons/def_doc.info")
  552.             (dest docdir) (newname "GadUtil_usr.readme.info")
  553.         )
  554.  
  555.     )
  556. )
  557.     
  558. ;----------------- Install selected developer documents --------------------
  559. (if (IN develdocs 0)
  560.     (
  561.         (copyfiles (source "Docs/GadUtil.doc") (dest docdir) )
  562.         (copyfiles (source "icons/def_doc.info") (dest docdir)
  563.             (newname "GadUtil.doc.info")
  564.         )
  565.     )
  566. )
  567.  
  568. (if (IN develdocs 1)
  569.     (
  570.         (copyfiles (source "Docs/GadUtil.guide") (dest docdir) )
  571.         (copyfiles (source "icons/def_guide.info") (dest docdir)
  572.             (newname "GadUtil.guide.info")
  573.         )
  574.     )
  575. )
  576.  
  577. (if (IN develdocs 2)
  578.     (
  579.         (copyfiles (source "Docs/PrivateFunctions") (dest docdir) )
  580.         (copyfiles (source "icons/def_doc.info") (dest docdir)
  581.             (newname "PrivateFunctions.info")
  582.         )
  583.     )
  584. )
  585.  
  586. (if (IN develdocs 3)
  587.     (copyfiles (source "Docs/AutoDocs") (dest (tackon docdir "AutoDocs")) (all) (infos))
  588. )
  589.  
  590. (if (IN develdocs 4)
  591.     (
  592.         (copyfiles (source "Docs/dev_history.guide") (dest docdir) )
  593.         (copyfiles (source "icons/def_guide.info") (dest docdir)
  594.             (newname "dev_history.guide.info")
  595.         )
  596.     )
  597. )
  598.  
  599. (if (IN develdocs 5)
  600.     (
  601.         (copyfiles (source "Docs/dev_historia.guide") (dest docdir) )
  602.         (copyfiles (source "icons/def_guide.info") (dest docdir)
  603.             (newname "dev_historia.guide.info")
  604.         )
  605.     )
  606. )
  607.  
  608. (if (IN develdocs 6)
  609.     (
  610.         (copyfiles (source "Docs/gadtools.tags") (dest docdir) )
  611.         (copyfiles (source "icons/def_doc.info") (dest docdir)
  612.             (newname "gadtools.tags.info")
  613.         )
  614.     )
  615. )
  616.  
  617. ;-------------------- Install all selected include files -------------------
  618. (if (AND (> installtype 1) (<> develinc 0))
  619.     (    (    (    (
  620.         (if (IN develinc 0)
  621.             ((set cincdir
  622.                 (askdir
  623.                     (prompt #cincdir-msg)
  624.                     (help @askdir-help)
  625.                     (newpath)
  626.                     (default "include:")
  627.                 )
  628.             )
  629.  
  630.             ((set .file1 "include/clib/gadutil_protos.h")
  631.             (set .file2 (tackon cincdir "clib"))
  632.             (safecopy))
  633.  
  634.             ((set .file1 "include/libraries/gadutil.h")
  635.             (set .file2    (tackon cincdir "libraries"))
  636.             (safecopy))
  637.  
  638.             (copyfiles
  639.                 (source "include/proto/gadutil.h")
  640.                 (dest (tackon cincdir "proto"))
  641.             )
  642.  
  643.             (set ccomp (select cinc "SAS" "DICE" "Aztec" "Maxon" "Maxon"))
  644.             (if (= ccomp "Aztec")
  645.                 (set pragmaname "pragmas/gadutil_lib.h")
  646.                 (set pragmaname "pragmas/gadutil_pragmas.h")
  647.             )
  648.  
  649.             (makedir (tackon cincdir "pragmas"))
  650.  
  651.             (run (cat "ExtraCmds/fd2pragma include/FD/gadutil_lib.fd "
  652.                             ccomp ' "' (tackon cincdir pragmaname) '"'))
  653.  
  654.             (if (<> "" (getassign "StormC" "adv"))
  655.                 (
  656.                     (set StormCDict
  657.                         (askbool
  658.                             (prompt #StormCDict-msg)
  659.                             (help @askbool-help)
  660.                             (choices "Yes" "No, I'll do it later")
  661.                             (default 1)
  662.                         )
  663.                     )
  664.  
  665.                     (if (= StormCDict 1)
  666.                         (
  667.                             (run "c:edit \"StormC:StormSys/Dictionary/Amiga Functions.dic\" WITH icons/EditorCommands1")
  668.                             (textfile (dest "StormC:StormSYS/Dictionary/Amiga Functions.dic")
  669.                                       (include "StormC:StormSYS/Dictionary/Amiga Functions.dic")
  670.                                       (include "include/StormC/GadUtil Functions.dic"))
  671.  
  672.                             (run "c:edit \"StormC:StormSys/Dictionary/Amiga Types.dic\" WITH icons/EditorCommands2")
  673.                             (textfile (dest "StormC:StormSYS/Dictionary/Amiga Types.dic")
  674.                                       (include "StormC:StormSYS/Dictionary/Amiga Types.dic")
  675.                                       (include "include/StormC/GadUtil Types.dic"))
  676.                         )
  677.                     )
  678.                 )
  679.             )
  680.         ))
  681.  
  682.         (if (IN develinc 1)
  683.             (    (if (<> cincdir 0)
  684.                     (set defasminc cincdir)
  685.                     (set defasminc "include:")
  686.                 )
  687.                 (set asmincdir
  688.                     (askdir
  689.                         (prompt #asmincdir-msg)
  690.                         (help @askdir-help)
  691.                         (newpath)
  692.                         (default defasminc)
  693.                     )
  694.                 )
  695.  
  696.                 ((set .file1 "include/libraries/gadutil.i") 
  697.                 (set .file2 (tackon asmincdir "libraries"))
  698.                 (safecopy))
  699.  
  700.                 (if (= asminc 0)
  701.                     ((set .file1 "include/libraries/gadutil_lib.i")
  702.                     (set .file2 (tackon asmincdir "libraries"))
  703.                     (safecopy))
  704.                     (
  705.                         (run (cat "ExtraCmds/fd2pragma include/FD/gadutil_lib.fd "
  706.                             'AS "' (tackon asmincdir "libraries/gadutil_lib.asm") '"'))
  707.                     )
  708.                 )
  709.  
  710.             )
  711.         ))
  712.  
  713.         (if (IN develinc 2)
  714.             (    (if (<> asmincdir 0)
  715.                     (set deflvodir asmincdir)
  716.                     (set deflvodir "include:")
  717.                 )
  718.                 (set LVOSidir
  719.                     (askdir
  720.                         (prompt #LVOSidir-msg)
  721.                         (help @askdir-help)
  722.                         (newpath)
  723.                         (default deflvodir)
  724.                     )
  725.                 )
  726.  
  727.                 ((set .file1 "include/LVOs.i")
  728.                 (set .file2 LVOSidir)
  729.                 (safecopy))
  730.             )
  731.         ))
  732.  
  733.         (if (IN develinc 3)
  734.             (    (set FDdir
  735.                     (askdir
  736.                         (prompt #FDdir-msg)
  737.                         (help @askdir-help)
  738.                         (newpath)
  739.                         (default "FD:")
  740.                     )
  741.                 )
  742.                 ((set .file1 "include/FD/gadutil_lib.fd")
  743.                 (set .file2 FDdir)
  744.                 (safecopy))
  745.             )
  746.         ))
  747.     )
  748. )
  749.  
  750. ;----------------------- Create directory for examples ---------------------
  751. (if (OR (<> develex1 0) (<> develex2 0))
  752.     (
  753.         (set exampledir
  754.             (askdir
  755.                 (prompt #exampledir-msg)
  756.                 (help @askdir-help)
  757.                 (newpath)
  758.                 (default (tackon destdir "Examples"))
  759.             )
  760.         )
  761.         (makedir exampledir (infos))
  762.     )
  763. )
  764.  
  765. ;------------------------- Install selected examples -----------------------
  766. (if (IN develex1 0)
  767.     (    (copyfiles
  768.             (source "Examples/GadToolsBug.s")
  769.             (dest exampledir)
  770.         )
  771.         (copyfiles
  772.             (source "Examples/GadToolsBug1")
  773.             (dest exampledir)
  774.         )
  775.         (copyfiles
  776.             (source "Examples/GadToolsBug2")
  777.             (dest exampledir)
  778.     )    )
  779. )
  780.  
  781. (if (IN develex1 1)
  782.     (copyfiles
  783.         (source "Examples/AnyProgram")
  784.         (dest (tackon exampledir "AnyProgram"))
  785.         (all)(infos)
  786.     )
  787. )
  788.  
  789. (if (IN develex1 2)
  790.     (copyfiles
  791.         (source "Examples/BetterTest")
  792.         (dest (tackon exampledir "BetterTest"))
  793.         (all) (infos)
  794.     )
  795. )
  796.  
  797. (if (IN develex1 3)
  798.     (    (copyfiles
  799.             (source "Examples/BevelTest.s")
  800.             (dest exampledir)
  801.         )
  802.         (copyfiles
  803.             (source "Examples/BevelTest")
  804.             (dest exampledir)
  805.     )    )
  806. )
  807.  
  808. (if (IN develex1 4)
  809.     (copyfiles
  810.         (source "Examples/ExternTestInit.s")
  811.         (dest exampledir)
  812.     )
  813. )
  814.  
  815. (if (IN develex1 5)
  816.     (    (copyfiles
  817.             (source "Examples/LVTest.s")
  818.             (dest exampledir)
  819.         )
  820.  
  821.         (copyfiles
  822.             (source "Examples/LVTest")
  823.             (dest exampledir)
  824.     )    )
  825. )
  826.  
  827. (if (IN develex1 6)
  828.     (    (copyfiles
  829.             (source "Examples/AGuideTest.s")
  830.             (dest exampledir)
  831.         )
  832.         (copyfiles
  833.             (source "Examples/AGuideTest")
  834.             (dest exampledir)
  835.     )    )
  836. )
  837.  
  838. (if (IN develex2 0)
  839.     (    (copyfiles
  840.             (source "Examples/mytestprog.s")
  841.             (dest exampledir)
  842.         )
  843.         (copyfiles
  844.             (source "Examples/mytestprog1")
  845.             (dest exampledir)
  846.         )
  847.         (copyfiles
  848.             (source "Examples/mytestprog2")
  849.             (dest exampledir)
  850.     )    )
  851. )
  852.  
  853. (if (IN develex2 1)
  854.     (copyfiles
  855.         (source "Examples/OldInternal")
  856.         (dest (tackon exampledir "OldInternal"))
  857.         (all)(infos)
  858.     )
  859. )
  860.  
  861. (if (IN develex2 2)
  862.     (copyfiles
  863.         (source "Examples/OldTestProgs")
  864.         (dest (tackon exampledir "OldTestProgs"))
  865.         (all) (infos)
  866.     )
  867. )
  868.  
  869. (if (IN develex2 3)
  870.     (    (copyfiles
  871.             (source "Examples/ThreeGadgets.s")
  872.             (dest exampledir)
  873.         )
  874.         (copyfiles
  875.             (source "Examples/ThreeGadgets")
  876.             (dest exampledir)
  877.     )    )
  878. )
  879.  
  880. (if (IN develex2 4)
  881.     (copyfiles
  882.         (source "Examples/BetterTest-C")
  883.         (dest (tackon exampledir "BetterTest-C"))
  884.         (all) (infos)
  885.     )
  886. )
  887.  
  888. (if (IN develex2 5)
  889.     (copyfiles
  890.         (source "Examples/MoreExamples-C")
  891.         (dest (tackon exampledir "MoreExamples-C"))
  892.         (all) (infos)
  893.     )
  894. )
  895.  
  896. (if (IN develex2 6)
  897.     (copyfiles
  898.         (source "Examples/MoreExamples")
  899.         (dest (tackon exampledir "MoreExamples"))
  900.         (all) (infos)
  901.     )
  902. )
  903.  
  904. ;----------------- Create directory for catalog utilities ------------------
  905. (if (<> develcat 0)
  906.     (
  907.         (set catutdir
  908.             (askdir
  909.                 (prompt #catutdir-msg)
  910.                 (help @askdir-help)
  911.                 (newpath)
  912.                 (default (tackon destdir "CatalogUtils"))
  913.             )
  914.         )
  915.         (makedir catutdir (infos))
  916.     )
  917. )
  918.  
  919. ;-------------------- Install selected catalog utilities -------------------
  920. (if (IN develcat 0)
  921.     (copyfiles
  922.         (source "CatalogUtils/FlexCat")
  923.         (dest catutdir)
  924.     )
  925. )
  926.  
  927. (if (IN develcat 1)
  928.     (    (copyfiles
  929.             (source "CatalogUtils/FlexCat_Eng.guide")
  930.             (dest catutdir)
  931.         )
  932.         (copyfiles
  933.             (source "icons/def_guide.info")
  934.             (dest catutdir) (newname "FlexCat_Eng.guide.info")
  935.     )    )
  936. )
  937.  
  938. (if (IN develcat 2)
  939.     (    (copyfiles
  940.             (source "CatalogUtils/FlexCat_Quick.doc")
  941.             (dest catutdir)
  942.         )
  943.         (copyfiles
  944.             (source "icons/def_doc.info")
  945.             (dest catutdir) (newname "FlexCat_Quick.doc.info")
  946.     )    )
  947. )
  948.  
  949. (if (IN develcat 3)
  950.     (copyfiles
  951.         (source "CatalogUtils/Lattice_Data.sd")
  952.         (dest catutdir)
  953.     )
  954. )
  955.  
  956. (if (IN develcat 4)
  957.     (copyfiles
  958.         (source "CatalogUtils/ASM-One_Data.sd")
  959.         (dest catutdir)
  960.     )
  961. )
  962.  
  963. ;------------------ Create directory for extra commands --------------------
  964. (if (<> develcmd 0)
  965.     (
  966.         (set extcmddir
  967.             (askdir
  968.                 (prompt #extcmddir-msg)
  969.                 (help @askdir-help)
  970.                 (newpath)
  971.                 (default "C:")
  972.             )
  973.         )
  974.         (if (<> (exists extcmddir) 2)
  975.             (makedir extcmddir (infos))
  976.         )
  977.     )
  978. )
  979.  
  980. ;---------------------- Install selected extra commands --------------------
  981. (if (IN develcmd 0)
  982.     (copyfiles
  983.         (source "ExtraCmds/AskEnv")
  984.         (dest extcmddir)
  985.     )
  986. )
  987.  
  988. (if (IN develcmd 1)
  989.     (    (copyfiles
  990.             (source "ExtraCmds/FD2Pragma")
  991.             (dest extcmddir)
  992.         )
  993.         (copyfiles
  994.             (prompt #sellocfor-msg)
  995.             (source "ExtraCmds/FD2Pragma.readme")
  996.             (dest extcmddir)
  997.             (confirm) (help @copyfiles-help)
  998.         )
  999.     )
  1000. )
  1001.  
  1002. (if (IN develcmd 2)
  1003.     (copyfiles
  1004.         (source "ExtraCmds/XIcon")
  1005.         (dest extcmddir)
  1006.     )
  1007. )
  1008.  
  1009. ;--------------------- Install debug version of library --------------------
  1010. (if (IN develoth 0)
  1011.     (
  1012.         (message #debuglib-msg)
  1013.         (copylib
  1014.             (prompt #debuglibinst-msg)
  1015.             (help @copylib-help)
  1016.             (source "libs/gadutil.library_dbg")
  1017.             (dest "libs:")
  1018.             (confirm)
  1019.         )
  1020.     )
  1021. )
  1022.  
  1023. (if (IN develoth 1)
  1024.     (    (copyfiles
  1025.             (source "InstallInc.info")
  1026.             (dest destdir)
  1027.         )
  1028.         (copyfiles
  1029.             (source "install.script")
  1030.             (dest destdir)
  1031.         )
  1032.         (copyfiles
  1033.             (source "InstallInc.gad")
  1034.             (dest destdir)
  1035.         )
  1036.     )
  1037. )
  1038.  
  1039. (if (IN develoth 2)
  1040.     (    (copyfiles
  1041.             (source "-MakeArchive-.info")
  1042.             (dest destdir)
  1043.         )
  1044.         (copyfiles
  1045.             (source "-MakeDevel-.info")
  1046.             (dest destdir)
  1047.         )
  1048.         (copyfiles
  1049.             (source "-MakeUser-.info")
  1050.             (dest destdir)
  1051.     )    )
  1052. )
  1053.  
  1054. (if (IN develoth 3)
  1055.     (    (copyfiles
  1056.             (source "Install") (infos)
  1057.             (dest destdir)
  1058.         )
  1059.         (copyfiles
  1060.             (source "Install_User") (infos)
  1061.             (dest destdir)
  1062.         )
  1063.         (copyfiles
  1064.             (source "icons")
  1065.             (dest (tackon destdir "icons"))
  1066.             (all)
  1067.         )
  1068.         (copyfiles
  1069.             (source "libs")
  1070.             (dest (tackon destdir "libs"))
  1071.             (all)(infos)
  1072.     )    )
  1073. )
  1074.  
  1075. (if (IN develoth 4)
  1076.     (    (if (exists "GadUtilLib.s")
  1077.             ((set .file1 "GadUtilLib.s")
  1078.             (set .file2 destdir)
  1079.             (safecopy))
  1080.             (message #obtainsrc-msg)
  1081.         )
  1082.     )
  1083. )
  1084.  
  1085. (if (IN develoth 5)
  1086.     (
  1087.         (if (exists "GU_DrawBevelBoxA.s")
  1088.             (copyfiles
  1089.                 (source "GU_DrawBevelBoxA.s")
  1090.                 (dest destdir)
  1091.             )
  1092.             (message #obtainsrc-msg)
  1093.         )
  1094.     )
  1095. )
  1096.  
  1097. ;--------------------------------- Done ------------------------------------
  1098. (exit)
  1099.